home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_1 / cpdist / mklnk.c < prev    next >
C/C++ Source or Header  |  1994-01-12  |  1KB  |  61 lines
  1. /*
  2.  *  MKLNK.C
  3.  *
  4.  *  (c)Copyright 1993 by Tobias Ferber,  All Rights Reserved.
  5.  */
  6.  
  7. #include <stdio.h>
  8. #include <stdlib.h>
  9.  
  10. #define LINKFILE "turboc.$ln"
  11.  
  12. static char rcs_id[]= "$VER: $Id: mklnk.c 1.2 93/08/27 00:04:43 tf Exp $\0"
  13.                       "(compiled " __DATE__ ", " __TIME__ " MS-DOS)";
  14.  
  15. main(int argc, char **argv)
  16. {
  17.   int errorlevel= 0;
  18.  
  19.   FILE *fp;
  20.  
  21.   if(argc<2)
  22.   { if( fp= fopen(LINKFILE,"r") )
  23.     { fclose(fp);
  24.       if( errorlevel= remove(LINKFILE) )
  25.       { fprintf(stderr,"MKLNK.EXE: Can't remove \"%s\".\n",LINKFILE);
  26.         perror("MKLNK.EXE");
  27.       }
  28.       else fprintf(stderr,"MKLNK.EXE: \"%s\" removed.\n",LINKFILE);
  29.     }
  30.   }
  31.   else if(argc==2 && argv[1][0]=='?' || argv[1][0]=='.')
  32.   { fprintf(stderr,"%s\n"
  33.                    "(c)Copyright 1993 by Tobias Ferber, All Rights Reserved\n"
  34.                    "MKLNK objfiles libfiles", &rcs_id[6]);
  35.   }
  36.   else
  37.   {
  38.     if( fp= fopen(LINKFILE,"a") )
  39.     {
  40.       while(--argc > 0)
  41.       {
  42.         char *s= *++argv;
  43.  
  44.         if(argc>=2)
  45.         { fprintf(fp,"%s+\n",s);
  46.       if(argc==2 && argv[1][0]=='+')
  47.             --argc;
  48.         }
  49.         else if(argc==1) fprintf(fp,"%s\n",s);
  50.       }
  51.       fclose(fp);
  52.     }
  53.     else
  54.     {
  55.       fprintf(stderr,"Can't append data to ´%s'.\n",LINKFILE);
  56.       errorlevel= 10;
  57.     }
  58.   }
  59.   exit(errorlevel);
  60. }
  61.